use person;
use warnings;
use strict;

print "In the beginning: \n";my $object = person->new(
surename => "Galilei",
forename => "Galileo",
address => "9.81 Pisa Apts.",
occupation => "bombadier"
);